home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 1 / BBS in a box - Trilogy I.iso / Files / Music / M / M5Mac ƒ / Scripts folder / FLAUTEST.PAR next >
Encoding:
Text File  |  1993-05-06  |  1.5 KB  |  58 lines  |  [TEXT/M5Mc]
  1. COM simulazione FLAUTO;
  2. COM -------------------------------------;
  3. com attenzione a v7: dipende da sam;
  4. SAM 22000;
  5. scr 2;
  6. COM -------------------------------------;
  7. INS 0 2;
  8. CNV P5=P5*10;
  9. cnv p13=p6*0.01;
  10. cnv p16=p6/4;
  11. CNV P6=HTZ(P6);
  12. CNV P7=DUR(P4);
  13. CNV P9=HTZ(P9);
  14. CNV P8=P5*.01;
  15. cnv p13=htz(p13);
  16. cnv p11=htz(p11);
  17. CNV P14=HTZ(5000);
  18. CNV P15=HTZ(5000);
  19. RAN P8 P9 B3 P30 P29 P28 v3;
  20. AD2 B3 P5 B3;
  21. IOS B3 V7 B3 F12 P25;
  22. SET P10;
  23. IOS B3 P7 B3 F5 P27;
  24. ran p13 p11 b4 p24 p23 p22 v2;
  25. ad2 p6 b4 b4;
  26. mlt b3 v4 b5;
  27. RAN B5 P14 B5 P21 P20 P19 v1;
  28. IOS B5 P15 B5 F1 P18;
  29. mlt p6 v5 b6;
  30. sbf b5 b5 b6 p16 p17 p12;
  31. IOS B3 b4 B4 F2 P26;
  32. ad2 b4 b5 b3;
  33. OUT B3;
  34. END;
  35. COM -------------------------------------;
  36. COM METRONOME 36;
  37. MET 0 36;
  38. COM ------------------------------------------------------------------;
  39. GEN 0 2 1 512 1 1;
  40. GEN 0 2 2 512 1 .2 .08 .07  4;
  41. GEN 0 2 3 512 1 .4 .2 .1 .1 .05 6;
  42. GEN 0 1 4 512 0 0 .2 50 .6 140 .99 180 .9 205 .5 250 .25 300 .12 350
  43.  .06 400 .03 450 0 512;
  44. GEN 0 1 5 512 0 0 .2 50 .6 150 .99 200 .2 350 0 512;
  45. GEN 0 1 6 512 0 0 .2 50 .5 250 .2 350 0 512;
  46. GEN 0 1 7 512 0 0 .5 80 .5 140 .99 160 .4 280 .6 420 0 512;
  47. GEN 0 2 12 512 .26 .74 1;
  48. COM ------------------------------------------------------------------;
  49. sv3 0 1 0 .6 0 .12 .5;
  50. SV3 0 7 .0001718;
  51. not 0 2 1.5 800 554.37 0 0 60 4 18;
  52. not 1.5 2 .166 400 493.88 0 0 70 5 12 ;
  53. not 1.6666 2 .13 500 466.16 0 0 60 6 2 15 ;
  54. not 1.72 2 .12 400 440.00 0 0 60 6 16 ;
  55. not 1.80 2 .14 400 415.30 0 0 60 6 14 ;
  56. not 1.9 2 .75 800 392.00 0 0 75 4 20 ;
  57. ter 3;
  58.